AOL File Library: 4,101 to 4,200

home *** CD-ROM | disk | FTP | other *** search

/ AOL File Library: 4,101 to 4,200 / aol-file-protocol-4400-4101-to-4200.zip / AOLDLs / Business Management / NEWORDER_ Mail Order Customers / MAILORD.exe / NEWORDER.BAS (.txt) < prev next >

Wrap

QuickBASIC Tokenized Source | 1996-10-20 | 27KB | 489 lines

HEADINGS MAIN4 MAIN.SCREEN HEADINSD MENU.SETUP SUBMENU SUBMENU.SETUP CUSTOMERSTRUCTUREZ TITLE ADD2` STATE PHONE CUSTOMER CUSROMERSTRUCTURE B300` B400` LOCATE6 INVSTRUCTURE PRICE CUSTNUM\ THENCALL CUSTOMER.TITLE6 CUSTOMER.ADD1U CUSTOMER.ADD2- CUSTOMER.CITY CUSTOMER.STATE CUSTOMER.ZIP CUSTOMER.PHONE PRINTCUSTOMER% PRINTCUSTOMER.TITLEe RRRRR DESCRIP D100} TYPEPE INV.COST PRINTINV PRINTINV.COSTL @ INVENTORY+ SUBTOTAL E100D POIOT GOSUBZIP A100.SHOW.SCREENe A200 A200.INPUT.SCREEN ALOCATE A300n A300.PLACE.ORDERL A400.NEW.CUS A400] A500R A500.SAVE CUS.INFO? A500.SAVE.CUS.INFO$ SAVE.CUS.INFOg OPOPOO ENTER ORDER CUST1> CUST1.NUM{ D200+ TTTTT B800DO& A1000 TOTALK A600.PRINT.INVOICE A600u DESCRIPTION OCATE BOTTLE INV.VER F1OOk CALLNUMBERJ NUMBER CUST.NUM COSE[ LOCATE2 TENDER EXPIREz INVNUM GENERATEN INVOICE INVOICE.INV1 INVOICE.INV1.j INVOICE.INV2r INVOICE.INV3F INVOICE.INV4 INVOICE.INV5 INVOICE.INV6 INVOICE.INV7 INVOICE.INV8 INVOICE.INV9 INVOICE.INV10 INVOICE.INV2. INVOICE.INV3. INVOICE.INV4. INVOICE.INV5. INVOICE.INV6. INVOICE.INV7.# INVOICE.INV8.4 INVOICE.INV9. INVOICE.INV10.z INVOICESTRUCTURE INV1j INV3L INV4a INV10 INV1. INV5. INV6. INV7.# INV8., INV9. INV10. INVNUMGOTOr A700h A700.SHOW.INVOICEr TTTYRP T100* CARDO EXPDX T200A T300$ CHECK CHKAMOUNT SAVEINV QUANx ITEM1; ITEM2e ITEM3 ITEM4 ITEM5 ITEM6 ITEM7 ITEM8 ITEM9- OLDINVOICESTRUCTURE` LOOKUPSTRUTL QUE2? QUE3m LOOKUP LOOKUPSTRUTQUE1 LOOKNAME3 LASTNAME LOOKUP.LASTNAME LOOKUP.QUE1 FULLNAME LOOKUP.FULLNAME LOOKUP.QUE2 LOOKUP.QUE3 SEARCH.FOR.CUS1 SEARCHB LOOK] J900a LOOK100W QUE2GOTOJ IIIII FULLNA THENPRINTp SPACEn TRIMP CUSTOMER.SEARCH TITLE1 TITLE2N CISTOMER CISTOMER.TITLE1 CUSTOMER.TITLE2 CUSTOMER.TITLE1v STOCK INV.STOCKj CRODE Q1003 Q200+ Q300( CNT1 CNTCNT1b INV.CODE INV.DESCRIP CODEPRINT DESC5 RETAIL CODE1 RANSOM PCODE INV100 INV900 CHOICE CHOICE5 INV400# INV200w CHOICE6 IN.STOCK\ SHIPPINGS ADDRESSg CHOICE3 T600O STADD ZIPCODE) ASDFD J1000 IFWER TE400 TE100 PRESS CHOOSEA WRONG TOTALCOLOR USINGA4U COMPANY.INFO/ COMPANY INFO9 COM100 COLOR4 YUGHJ THRNG THIS1 CORRECTz PRINW SPACEC SUBTOT NOTHGT TODAY.TOTAL TODAY. DAILY TODAYS TODAYS.TOTALQ JSDF_ MANAGER INPUTDFR INPUTD MA100 SH100 SH200 SH300 SH400 SH500 SH600& SUBSHIP MEW.INVENTORY NEW.INVENTORY NEWCODE NEWDES NEWPRICE NEWSTOCK IN100 IV100 INV1000 INKEY COM50 OFKEY ***FILES USED *CUSTOMER.DAT CUSTOMER INFO *CUSTOMER.NUM LAST CUSTOMER # *INVENTOR.DAT INVENTORY INFO *INVOICE.NUM LAST INVOICE # *INVOICE.DAT INDEX FOR INVOICE #'S F *COMPANY.DAT COMPANY INFO FOR INVOICE HEADING *DAILY.DAT DAILY TOTALST *INVENTOR.IDX INVENTORY #'S *INVENTOR.REC *RESET DAILY.DAT FILE FOR NEW DAYM C:\ORDER\DAILY.DATd C:\ORDER\DAILY.DATd *START OF PROGRAM EXECUTIONP *BEGINNING OF PROGRAM MAIN MENU INPUTS TOTAL SALES" $$####.##" *FUNCTION KEY SUBROUTINES1 HEADINGS FIRST NAME...> LAST NAME....> ADDRESS......> BOX OR APT#..> CITY.........> STATE..> ZIP..> PHONE...>" CUST #..>" NEW CUST........1" EXISTING CUST...2" SEARCH FOR CUST.3" INVENTORY.......4" COMPANY INFO....5" EXIT............6" ENTER CHOICE...> QTY CODE DESCRIPTION PRICE TOTAL ...................................................................." SUBTOTAL $$####.##" SHIPPING $$##.##" ........................" GRAND TOTAL$$####.##" SHIPPING TAX SUBTOTAL TOTAL CREDIT CARD ON FILE.......1" CREDIT CARD...............1" CHECK.....................2" CASH......................3" CHOICE" RETURN TO ORDER...........4" INVENTORY ITEM # PRODUCT CODE PRODUCT PRICE STOCK" ....................................................................." C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d ### \ \ \ \ $$###.## #,###" INVENORY CONTROL MENU" CHANGE STOCK ON HAND............................1" CHANGE ITEM INFO................................2" ENTER NEW ITEM..................................3" EXIT............................................4" CHOICE " ENTER THE ITEM # " C:\ORDER\INVENTOR.DAT"d BAD ITEM #====>" CURRENT STOCK ENTER TOTAL STOCK ON HAND C:\ORDER\INVENTOR.DAT"d ENTER THE ITEM # TO CHANGE OR <RETURN> FOR MAIN MENU " C:\ORDER\INVENTOR.DAT"d BAD ITEM #====>" CURRENT STOCK ENTER THE NEW PRODUCT CODE " ENTER A DESCRIPTION ENTER A PRICE ENTER A STOCK QTY C:\ORDER\INVENTOR.DAT"d ENTER AN ITEM # THAT IS NOT ALREADY BEING USED OR <RETURN> FOR MAIN C:\ORDER\INVENTOR.DAT"d THIS CODE IS ALREADY IN USE=====>" PLEASE CHOOSE AGAIN" ENTER THE PRODUCT CODE " ENTER A BRIEF DESCRIPTION ENTER THE SELLING PRICE ENTER THE STOCK ON HAND FOR THIS PRODUCT " IS THE INFO CORRECT? (Y)ES OR (N)0 C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d A100.SHOW.SCREEN A200.INPUT.SCREEN *NEW CUST Y TO CONTINUE N TO CANCEL * OLD CUST CUST # TO HIGH C:\ORDER\CUSTOMER.DAT"d DO YOU WANT TO PLACE AN ORDER? " A300.PLACE.ORDER *ENTER THE ORDER BEGIN ENTERING THE ORDER. " TO CHANGE AN ENTRY, RE-ENTER " THE ORDER AS A NEGATIVE QTY. " ENTER 999 WHEN ORDER IS DONE," ENTER 888 TO ABORT THE ORDER." C:\ORDER\INVENTOR.DAT"d% BAD CODE ====>" \ \ $$##.## $$###.##" $$####.##" $$####.##" ARE YOU SURE? (Y)ES OR (N)O ENTER CARD # " ENTER EXP DATE IS THIS CORRECT? (Y, N, OR Q) ENTER CHECK # ENTER CHECK AMOUNT " IS THIS CORRECT? (Y, N, OR Q) ENTER AMOUNT PAID *ROUTINE FOR UNDERPAYMENT PRINT "THE AMOUNT PAID IS LESS THAN THE ORDER TOTAL!" PRINT USING "DO YOU WANT TO ISSUE A BALANCE OF $$###.## FOR THIS CUSTOMER?"; DUE INPUT "ENTER Y OR N (TYPE Q TO START OVER)", TYU$# INPUT "TYPE (Y) IF THIS IS CORRECT OR (Q) TO START OVER ", TYU$ LOOP UNTIL TYU$ = "Y" OR TYU$ = "N" OR TYU$ = "Q" IF TYU$ = "Q" GOTO TE100 *NONACTIVE ROUTINE FOR CUSTOMER BALANCES V IF TYU$ ="Y" THEN OPEN "C:\ORDER\CUSTOMER.DAT" FOR RANDOM AS #51 LEN = LEN(CUSTOMER)O GET #51,CUS,CUSTOMERM CUSTOMER.BALANCE =CUSTOMER.BALANCE+DUEM END IF PUT #51, CUS, CUSTOMER CLOSE #51C PRINT USING "CHANGE DUE $$###.##"; (DUE * -1) INPUT "PRESS <ENTER> IF YOU ARE DONE, OR (Q) TO START OVER ", PJA$ INPUT "OR ENTER THE AMOUNT OF CREDIT ISSUED TO THE ACCOUNT $", RUE$R IF PJA$ = "Q" THEN GOTO TE100 *NONACTIVE ROUTINE FOR CUSTOMER BALANCES (NEGATIVE) IF RUE$ ="Y" THEN OPEN "C:\ORDER\CUSTOMER.DAT" FOR RANDOM AS #51 LEN = LEN(CUSTOMER) GET #51,CUS,CUSTOMERM CUSTOMER.BALANCE =CUSTOMER.BALANCE-DUEM PUT #51, CUS, CUSTOMER CLOSE #51C SHIPPING ADDRESS ON FILE WILL THIS BE SHIPPED TO THE ADDRESS ABOVE (Y OR N)? ENTER THE SHIPPING INFO (USE THE </> KEY TO GO TO PREVIOUS FILEDS" ENTER THE NAME TO SHIP TO ENTER THE STREET ADDRESS " ENTER PO BOX OR APT # ENTER THE CITY " ENTER THE STATE ENTER THE ZIP CODE " A400.NEW.CUS C:\ORDER\CUSTOMER.NUM"d C:\ORDER\CUSTOMER.NUM"d 'S CUSTOMER # IS " PRESS ENTER... *SETUP THE INVOICE DATA KEY FOR NEW CUSTOMER C:\ORDER\INVOICE.DATd A500.SAVE.CUS.INFO "*ENTERS NEW CUSTOMER OR* "*SAVES CHANGES TO CUSTOMER INFO* C:\ORDER\CUSTOMER.DAT"d A600.PRINT.INVOICE *GENERATE INVOICE NUMO C:\ORDER\INVOICE.NUMe C:\ORDER\INVOICE.NUMe *SAVE INVOICE # TO THIS CUSTOMERS REFERENCE FILE C:\ORDER\INVOICE.DATd C:\ORDER\INVOICE.DATd *PRINT INVOICE C:\ORDER\COMPANY.DATe THANK YOU FOR ORDERING FROM PHONE FAX CUSTOMER# BILLING ADDRESS" ORDER DATE " INVOICE# " ### \ \ \ \ $$##.## $$####.## AMOUNT RECIEVED $$####.##" ACCOUNT BALANCE $$####.##" CHARGE TO \ \ \ \ CHECK ###### $$####.##" CASH $$####.##" SHIPPING ADDRESS *REVISE STOCKI C:\ORDER\INVENTOR.DAT"e *SAVE TOTAL IN FILE* C:\ORDER\DAILY.DATe C:\ORDER\DAILY.DATe NUMBER C:\ORDER\CUSTOMER.NUM"d! A700.SHOW.INVOICE C:\ORDER\INVOICE.DATd LAST 10 INVOICES SEARCH.FOR.CUS ENTER SEARCH CRITERIA. ALL FIELDS MUST BE USED (TYPE <RETURN> IN ANY FIELD TO QUIT) 1.FIRST 2 LETTERS OF LAST NAME===> 2.STATE=======>" 3.ZIP CODE====>" PRESS ENTER TO SEARCH OR Q TO QUIT " C:\ORDER\CUSTOMER.DAT"d ANOTHER SEARCH? COMPANY.INFO C:\ORDER\COMPANY.DATd COMPANY INFO 1.COMPANY NAME====> 2.ADDRESS=========> 3.ADDRESS=========> 4.CITY============> 5.STATE===========> 6.ZIP=============> 7.PHONE===========> 8.FAX=============> ENTER THE FIELD TO CHANGE (1-8) OR 9 TO QUIT " C:\ORDER\COMPANY.DATd TODAY.TOTAL TODAYS SALES TOTALS" C:\ORDER\DAILY.DATe \ \ TODAY'S RUNNING TOTAL IS $$#,###.##" PRESS <RETURN> NEW.INVENTORY ITEM # PRODUCT CODE PRODUCT PRICE STOCK" ....................................................................." C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d C:\ORDER\INVENTOR.REC"d ### \ \ \ \ $$###.## #,###"